10 HOME
20 PRINT CHR$(4);"PR#3"
30 DIM B(20,80)
32 DIM C(1510)
35 X1=10:Y1=42:BB=0:B=0

36 INVERSE:VTAB 1:HTAB 30:PRINT"MAZE PAINTER TOOL":VTAB 23:HTAB 1:PRINT"                                                                               ":VTAB 23:HTAB 26:PRINT"PRESS ANY KEY TO BE CONTINUE":VTAB 23:HTAB 55:GET Z$:NORMAL

37 HOME

38 INVERSE:VTAB 23:HTAB 1:PRINT" PLEASE INSERT A DATA DISK IN SLOT 6 DRIVE 2,THEN PRESS <SPC> TO BE CONTINUE. ":VTAB 23:HTAB 79:GET G$:VTAB 23:HTAB 79:PRINT G$:NORMAL:D2=1:GOSUB 15800

39 NORMAL:HOME


40 VTAB 10:HTAB 40:PRINT " "
45 VTAB 10:HTAB 40:PRINT "M"
50 INVERSE:VTAB 10:HTAB 42:PRINT "$":NORMAL
52 VTAB 20:HTAB 6:PRINT"Y":VTAB 20:HTAB 10:PRINT"I":VTAB 20:HTAB 15:PRINT"R - RUN":VTAB 20:HTAB 32:PRINT"S - SAVE MAZE":VTAB 20:HTAB 66:PRINT"DOLLAR :    0"
54 VTAB 21 :HTAB 5:PRINT"G H":VTAB 21:HTAB 9:PRINT"J K":VTAB 21:HTAB 15:PRINT"F - PAINTER":VTAB 21:HTAB 32:PRINT"L - LOAD MAZE":VTAB 21:HTAB 47:PRINT"X - CATALOG":VTAB 21:HTAB 66:PRINT"  STEP :    0"
56 VTAB 22 :HTAB 6:PRINT"B":VTAB 22:HTAB 10:PRINT"M":VTAB 22:HTAB 15:PRINT"Q - QUIT":VTAB 22:HTAB 32:PRINT"C - CLEAR SCN":VTAB 22:HTAB 66:PRINT"RESTEP :    0"

58 INVERSE:VTAB 23:HTAB 1:PRINT"                                                                               ":NORMAL
59 GOSUB 1200

60 R1=0:NO=0
62 VTAB 10:HTAB 40:PRINT"M":INVERSE:VTAB X1:HTAB Y1:PRINT "$":VTAB 23:HTAB 1:PRINT"COMMAND :                                                                     ":VTAB 23:HTAB 11:GET A$:VTAB 23:HTAB 11:PRINT A$:NORMAL
65 IF A$="Q" THEN 7000

66 IF A$=CHR$(25) THEN X2=X1-1:Y2=Y1:GOSUB 1000:GOSUB 29000:X1=X2:Y1=Y2
67 IF A$=CHR$(7) THEN X2=X1:Y2=Y1-1:GOSUB 1000:GOSUB 29000:X1=X2:Y1=Y2
68 IF A$=CHR$(8) THEN X2=X1:Y2=Y1+1:GOSUB 1000:GOSUB 29000:X1=X2:Y1=Y2
69 IF A$=CHR$(2) THEN X2=X1+1:Y2=Y1:GOSUB 1000:GOSUB 29000:X1=X2:Y1=Y2



70 IF A$="I" THEN X2=X1-1:Y2=Y1:GOSUB 1000:INVERSE:VTAB X2:HTAB Y2:PRINT"$":NORMAL:VTAB X1:HTAB Y1:PRINT"$":GOSUB 1100:B(X1,Y1)=1:GOSUB 1200:X1=X2:Y1=Y2
80 IF A$="J" THEN X2=X1:Y2=Y1-1:GOSUB 1000:INVERSE:VTAB X2:HTAB Y2:PRINT"$":NORMAL:VTAB X1:HTAB Y1:PRINT"$":GOSUB 1100:B(X1,Y1)=1:GOSUB 1200:X1=X2:Y1=Y2
90 IF A$="K" THEN X2=X1:Y2=Y1+1:GOSUB 1000:INVERSE:VTAB X2:HTAB Y2:PRINT"$":NORMAL:VTAB X1:HTAB Y1:PRINT"$":GOSUB 1100:B(X1,Y1)=1:GOSUB 1200:X1=X2:Y1=Y2
95 IF A$="M" THEN X2=X1+1:Y2=Y1:GOSUB 1000:INVERSE:VTAB X2:HTAB Y2:PRINT"$":NORMAL:VTAB X1:HTAB Y1:PRINT"$":GOSUB 1100:B(X1,Y1)=1:GOSUB 1200:X1=X2:Y1=Y2
100 IF A$="Y" THEN X2=X1-1:Y2=Y1:GOSUB 1000:INVERSE:VTAB X2:HTAB Y2:PRINT"$":NORMAL:VTAB X1:HTAB Y1:PRINT" ":GOSUB 1150:B(X1,Y1)=0:GOSUB 1200:X1=X2:Y1=Y2
110 IF A$="G" THEN X2=X1:Y2=Y1-1:GOSUB 1000:INVERSE:VTAB X2:HTAB Y2:PRINT"$":NORMAL:VTAB X1:HTAB Y1:PRINT" ":GOSUB 1150:B(X1,Y1)=0:GOSUB 1200:X1=X2:Y1=Y2
120 IF A$="H" THEN X2=X1:Y2=Y1+1:GOSUB 1000:INVERSE:VTAB X2:HTAB Y2:PRINT"$":NORMAL:VTAB X1:HTAB Y1:PRINT" ":GOSUB 1150:B(X1,Y1)=0:GOSUB 1200:X1=X2:Y1=Y2
130 IF A$="B" THEN X2=X1+1:Y2=Y1:GOSUB 1000:INVERSE:VTAB X2:HTAB Y2:PRINT"$":NORMAL:VTAB X1:HTAB Y1:PRINT" ":GOSUB 1150:B(X1,Y1)=0:GOSUB 1200:X1=X2:Y1=Y2

160 IF A$="R" THEN 300

162 IF A$="F" THEN 30000


172 IF A$="S" THEN 15000
180 IF A$="L" THEN 15100
182 IF A$="C" THEN 15500
184 IF A$="X" THEN 15800

200 GOTO 60

300 X4=10:Y4=40:I1=1:S1=0:H2=0
305 VTAB 20:HTAB 47:PRINT"           ":VTAB 21:HTAB 75:PRINT"   0":VTAB 22:HTAB 75:PRINT"   0"
310 IF B(10,40)=1 THEN B(10,40)=0:VTAB 10:HTAB 40:PRINT"M":BB=BB-1:GOSUB 1200

312 REM IF B(V8,V9)=1 AND G1>0 THEN B(V8,V9)=0:VTAB V8:HTAB V9:PRINT"T":BB=BB-1:GOSUB 1200 

314 IF B(X4,Y4+1)=1 AND B(X4+1,Y4+1)=1 AND B(X4+1,Y4)=1 AND B(X4+1,Y4-1)=1 AND B(X4,Y4-1)=1 AND B(X4-1,Y4-1)=1 AND B(X4-1,Y4)=1 AND B(X4-1,Y4+1)=1 THEN INVERSE:VTAB 20:HTAB 47:PRINT"NO EXIT":NORMAL:GOTO 60


315 VTAB X4:HTAB Y4:PRINT"M"
320 X5=X4:Y5=Y4
330 IF B(X4+1,Y4-1)=0 THEN XX=X4+1:YY=Y4-1:Q=5:F1=1:GOTO 530
340 IF B(X4+1,Y4)=0 THEN XX=X4+1:YY=Y4:Q=4:F1=2:GOTO 530
350 IF B(X4+1,Y4+1)=0 THEN XX=X4+1:YY=Y4+1:Q=6:F1=3:GOTO 530
360 IF B(X4,Y4+1)=0 THEN XX=X4:YY=Y4+1:Q=3:F1=4:GOTO 530
370 IF B(X4-1,Y4+1)=0 THEN XX=X4-1:YY=Y4+1:Q=7:F1=5:GOTO 530
380 IF B(X4-1,Y4)=0 THEN XX=X4-1:YY=Y4:Q=2:F1=6:GOTO 530
390 IF B(X4-1,Y4-1)=0 THEN XX=X4-1:YY=Y4-1:Q=8:F1=7:GOTO 530
395 IF B(X4,Y4-1)=0 THEN XX=X4:YY=Y4-1:Q=1:F1=8:GOTO 530
400 I1=I1-1:IF I1<1 THEN I1=1
410 A7=C(I1):C(I1)=23:H2=H2+1:N1=22:N2=78:GOSUB 900
420 IF A7=1 THEN YY=Y4+1:XX=X4
430 IF A7=4 THEN XX=X4-1:YY=Y4
440 IF A7=3 THEN YY=Y4-1:XX=X4
450 IF A7=2 THEN XX=X4+1:YY=Y4
460 IF A7=5 THEN XX=X4-1:YY=Y4+1
470 IF A7=6 THEN XX=X4-1:YY=Y4-1
480 IF A7=7 THEN XX=X4+1:YY=Y4-1
490 IF A7=8 THEN XX=X4+1:YY=Y4+1
500 GOTO 550
530 IF B(XX,YY)=2 THEN XX=X4:YY=Y4:ON F1 GOTO 340,350,360,370,380,390,395,400
540 C(I1)=Q:I1=I1+1
550 VTAB X4:HTAB Y4:PRINT" ":B(XX,YY)=2 
560 IF XX>19 OR XX<1 OR YY>79 OR YY<1 THEN VTAB X5:HTAB Y5:PRINT" ":S1=0:H2=0:GOTO 650
570 X4=XX:Y4=YY:VTAB X4:HTAB Y4:PRINT"M":VTAB X5:HTAB Y5:PRINT" "
575 IF XX=10 AND YY=40 THEN R1=R1+1 
577 IF R1>8 THEN R1=0:NO=1:INVERSE:VTAB 20:HTAB 47:PRINT"NO EXIT":NORMAL:GOTO 650
580 S1=S1+1:N1=21:N2=78
590 IF S1>9 THEN N2=N2-1
600 IF S1>99 THEN N2=N2-1
610 IF S1>999 THEN N2=N2-1
620 VTAB N1:HTAB N2: PRINT S1
640 GOTO 315

650 FLASH:VTAB 23:HTAB 15:PRINT"WAITING":NORMAL
660 FOR I=0 TO 20
670 FOR J=0 TO 80
680 IF B(I,J)<>1 THEN B(I,J)=0
690 NEXT J
700 NEXT I
705 INVERSE:VTAB 23:HTAB 15:PRINT"        ":NORMAL
710 IF NO=1 THEN NO=0:GOTO 60
720 INVERSE:VTAB 20:HTAB 47:PRINT"SHORTCUT":NORMAL
730 X7=10:Y7=40:I2=1
740 IF C(I2)=5 THEN X8=X7+1:Y8=Y7-1
750 IF C(I2)=4 THEN X8=X7+1:Y8=Y7
760 IF C(I2)=6 THEN X8=X7+1:Y8=Y7+1
770 IF C(I2)=3 THEN X8=X7:Y8=Y7+1
780 IF C(I2)=7 THEN X8=X7-1:Y8=Y7+1
790 IF C(I2)=2 THEN X8=X7-1:Y8=Y7
792 IF C(I2)=8 THEN X8=X7-1:Y8=Y7-1 
794 IF C(I2)=1 THEN X8=X7:Y8=Y7-1
796 IF X8>19 OR X8<1 OR Y8>79 OR Y8<1 THEN VTAB X7:HTAB Y7:PRINT" ":VTAB 20:HTAB 47:PRINT"            ":GOTO 60
800 VTAB X8:HTAB Y8:PRINT"M":VTAB X7:HTAB Y7:PRINT" ":X7=X8:Y7=Y8
810 I2=I2+1
880 GOTO 740

900 IF H2>9 THEN N2=N2-1
910 IF H2>99 THEN N2=N2-1
920 IF H2>999 THEN N2=N2-1
930 VTAB N1:HTAB N2: PRINT H2
940 RETURN




1000 IF X2<1 THEN X2=19
1010 IF X2>19 THEN X2=1
1020 IF Y2<1 THEN Y2=79
1030 IF Y2>79 THEN Y2=1
1040 RETURN

1100 IF B(X1,Y1)=0 THEN BB=BB+1
1110 RETURN 

1150 IF B(X1,Y1)=1 THEN BB=BB-1
1160 RETURN

1200 IF BB<0 THEN BB=0
1210 IF BB<10 AND BB>-1 THEN NN1=78
1220 IF BB<100 AND BB>9 THEN NN1=77
1230 IF BB<1000 AND BB>99 THEN NN1=76
1240 IF BB<10000 AND BB>999 THEN NN1=75
1242 VTAB 20:HTAB 75:PRINT"    "
1260 VTAB 20:HTAB NN1:PRINT BB
1270 RETURN

1400 N1=21:N2=78
1410 IF S1>9 THEN N2=N2-1
1420 IF S1>99 THEN N2=N2-1
1430 IF S1>999 THEN N2=N2-1
1440 VTAB N1:HTAB N2: PRINT S1
1450 RETURN


1500 IF X2<4 THEN X2=4
1510 IF X2>16 THEN X2=16
1520 IF Y2<4 THEN Y2=4
1530 IF Y2>76 THEN Y2=76
1540 RETURN



7000 HOME:PRINT CHR$(4);"CATALOG"+",D1,S6":END




15000 INVERSE:VTAB 23:HTAB 1:PRINT"                                                 ":VTAB 23:HTAB 1:INPUT"FILENAME : ";F$:NORMAL
15005 INVERSE:VTAB 23:HTAB 50:PRINT"SAVING":NORMAL
15007 IF F$=CHR$(43) THEN INVERSE:VTAB 23:HTAB 12:PRINT"                                                                    ":NORMAL:GOTO 60

15009 IF LEN(F$) > 24 THEN INVERSE:VTAB 23:HTAB 12:PRINT"                                                                    ":NORMAL:GOTO 15000

15010 ONERR GOTO 22200

15012 PRINT CHR$(4);"OPEN";F$
15020 PRINT CHR$(4);"WRITE";F$ 
15030 FOR I=1 TO 19
15040 FOR J=1 TO 79
15050 PRINT B(I,J)
15060 NEXT J
15070 NEXT I
15072 PRINT CHR$(4);"CLOSE";F$

15074 X9=10:Y9=40:V8=10:V9=38:G1=0:MA=0

15075 M(1)=1:M(2)=2:M(3)=3:M(4)=4:M(5)=5:M(6)=6:M(7)=7:M(8)=8

15076 T$="R  DR  D  DL  L  UL  U  UR "


15081 PRINT CHR$(4);"OPEN";F$+".INDEX"
15082 PRINT CHR$(4);"WRITE";F$+".INDEX"
15083 PRINT X1:PRINT Y1:PRINT X9:PRINT Y9:PRINT V8:PRINT V9:PRINT G1:PRINT M(1):PRINT M(2):PRINT M(3):PRINT M(4):PRINT M(5):PRINT M(6):PRINT M(7):PRINT M(8):PRINT T$:PRINT MA
15084 PRINT CHR$(4);"CLOSE";F$+".INDEX"

15086 PRINT CHR$(4);"OPEN";F$+".BITMAP"
15088 PRINT CHR$(4);"WRITE";F$+".BITMAP" 
15090 FOR I=1 TO 19
15092 FOR J=1 TO 79
15093 PRINT B(I,J);
15094 NEXT J
15095 PRINT
15096 NEXT I
15097 PRINT CHR$(4);"CLOSE";F$+".BITMAP"

15098 INVERSE:VTAB 23:HTAB 12:PRINT"                                                                    ":NORMAL
15099 GOTO 60

15100 INVERSE:VTAB 23:HTAB 12:PRINT"                                                                    ":VTAB 23:HTAB 1:INPUT"FILENAME : ";F$:NORMAL
15105 INVERSE:VTAB 23:HTAB 50:PRINT"LOADING":NORMAL
15106 IF F$=CHR$(43) THEN INVERSE:VTAB 23:HTAB 12:PRINT"                                                                    ":NORMAL:GOTO 60

15108 ONERR GOTO 22200

15110 PRINT CHR$(4);"OPEN";F$
15120 PRINT CHR$(4);"READ";F$ 
15130 FOR I=1 TO 19
15140 FOR J=1 TO 79
15150 INPUT B(I,J)
15160 NEXT J
15170 NEXT I
15180 PRINT CHR$(4);"CLOSE";F$
15181 PRINT CHR$(4);"OPEN";F$+".INDEX"
15182 PRINT CHR$(4);"READ";F$+".INDEX"
15183 INPUT X1:INPUT Y1:INPUT X9:INPUT Y9:INPUT V8:INPUT V9:INPUT G1:INPUT M(1):INPUT M(2):INPUT M(3):INPUT M(4):INPUT M(5):INPUT M(6):INPUT M(7):INPUT M(8):INPUT T$:INPUT MA
15184 PRINT CHR$(4);"CLOSE";F$+".INDEX"
15185 INVERSE:VTAB 23:HTAB 12:PRINT"                                                                    ":NORMAL
15187 GOSUB 15200

15188 REM IF G1>0 THEN INVERSE:VTAB 23:HTAB 50:PRINT"TARGET MODE":NORMAL:VTAB V8:HTAB V9:PRINT"T"

15189 NORMAL:VTAB 20:HTAB 45:PRINT"                     "
15190 LL=1:GOSUB 1200:GOTO 60

15200 BB=0:VTAB 20:HTAB 75:PRINT"    "
15202 FOR I=1 TO 19
15210 FOR J=1 TO 79
15220 IF B(I,J)=1 THEN VTAB I:HTAB J:PRINT"$":BB=BB+1:GOSUB 1200
15222 IF B(I,J)<>1 THEN VTAB I:HTAB J:PRINT" "
15230 NEXT J
15240 NEXT I
15250 RETURN


15500 NORMAL:VTAB 20:HTAB 45:PRINT"                     ":INVERSE:VTAB 23:HTAB 66:PRINT"             ":NORMAL

15502 FOR I=1 TO 19
15510 FOR J=1 TO 79
15520 VTAB I:HTAB J:PRINT" "
15530 NEXT J
15540 NEXT I

15542 FOR I=0 TO 20
15543 FOR J=0 TO 80
15544 B(I,J)=0
15545 NEXT J
15546 NEXT I

15547 FOR I=0 TO 1510:C(I)=0:NEXT I

15548 BB=0
15549 VTAB 20:HTAB 75:PRINT"   0":VTAB 21:HTAB 75:PRINT"   0":VTAB 22:HTAB 75:PRINT"   0"
15550 GOTO 60

15800 HOME
15802 PRINT CHR$(4);"CATALOG"+",D2,S6"
15810 PRINT:PRINT"<PRESS ANY KEY TO BE CONTINUE>":NORMAL:GET CT$
15820 HOME:BB=0
15830 FOR I=1 TO 19
15840 FOR J=1 TO 79
15850 IF B(I,J)=1 THEN VTAB I:HTAB J:PRINT"$":BB=BB+1
15860 NEXT J
15870 NEXT I

15880 IF D2=1 THEN D2=0:RETURN

15990 GOTO 52




22200 Y=PEEK(222)

22210 IF Y=4 THEN INVERSE:VTAB 23:HTAB 50:PRINT"WRITE PROTECTED":NORMAL:GOSUB 22500:GOTO 60
22212 IF Y=7 THEN INVERSE:VTAB 23:HTAB 50:PRINT"VOLUME MISMATCH":NORMAL:GOSUB 22500:GOTO 60
22214 IF Y=8 THEN INVERSE:VTAB 23:HTAB 50:PRINT"I/O ERROR":NORMAL:GOSUB 22500:GOTO 60
22216 IF Y=9 THEN INVERSE:VTAB 23:HTAB 50:PRINT"DISK FULL":NORMAL:GOSUB 22500:GOTO 60
22218 IF Y=10 THEN INVERSE:VTAB 23:HTAB 50:PRINT"FILE LOCKED":NORMAL:GOSUB 22500:GOTO 60
22219 IF Y=11 THEN INVERSE:VTAB 23:HTAB 50:PRINT"SYNTAX ERROR":NORMAL:GOSUB 22500:GOTO 60
22220 IF Y=13 THEN INVERSE:VTAB 23:HTAB 50:PRINT"FILE TYPE MISMATCH":NORMAL:GOSUB 22500:GOTO 60

22298 INVERSE:VTAB 23:HTAB 50:PRINT"FILE NOT FOUND":NORMAL:GOSUB 22500:GOTO 60

22500 FOR I=1 TO 50000
22510 NEXT I

22520 RETURN



29000 IF X1=10 AND Y1=40 THEN 29040
29010 IF B(X1,Y1)=1 THEN NORMAL:VTAB X1:HTAB Y1:PRINT"$"
29020 IF B(X1,Y1)=0 THEN NORMAL:VTAB X1:HTAB Y1:PRINT" "
29030 IF X2=10 AND Y2=40 THEN 29050
29040 INVERSE:VTAB X2:HTAB Y2:PRINT"$":NORMAL
 

29050 RETURN


30000 INVERSE:VTAB 23:HTAB 1:PRINT"COMMAND :                                                                     ":VTAB 23:HTAB 50:PRINT"MAZE PAINTER":VTAB 23:HTAB 11:GET A$:VTAB 23:HTAB 11:PRINT A$:NORMAL

30030 IF A$="A" THEN X2=X1:Y2=Y1:GOSUB 31000:GOTO 56000

30040 IF A$=CHR$(43) THEN INVERSE:VTAB 23:HTAB 12:PRINT"                                                                    ":NORMAL:GOTO 60

30060 GOTO 30000


31000 NORMAL
31010 IF B(X1,Y1)=1 THEN VTAB X1:HTAB Y1:PRINT"$"
31020 IF B(X1,Y1)=0 THEN VTAB X1:HTAB Y1:PRINT" "
31030 GOSUB 1500:INVERSE:VTAB X2:HTAB Y2:PRINT"$":NORMAL:X1=X2:Y1=Y2
31040 RETURN



37000 INVERSE:VTAB X1:HTAB Y1:PRINT"C":C=1:XS=X1:YS=Y1:X2=X1:Y2=Y1:NORMAL

37010 INVERSE:VTAB 23:HTAB 11:GET A$:VTAB 23:HTAB 11:PRINT A$:NORMAL

37070 IF A$=CHR$(43) THEN GOSUB 49000:INVERSE:VTAB X1:HTAB Y1:PRINT"$":NORMAL:VTAB 10:HTAB 40:PRINT"M":GOTO 56000

37080 IF A$="Q" THEN GOSUB 38100:GOSUB 49500:GOTO 56000
37081 IF A$="R" THEN GOSUB 38200:GOSUB 49500:GOTO 56000
37082 IF A$="S" THEN GOSUB 38300:GOSUB 49500:GOTO 56000
37083 IF A$="T" THEN GOSUB 38400:GOSUB 49500:GOTO 56000
37085 IF A$="U" THEN GOSUB 38500:GOSUB 49500:GOTO 56000
37086 IF A$="V" THEN GOSUB 38600:GOSUB 49500:GOTO 56000
37087 IF A$="W" THEN GOSUB 38700:GOSUB 49500:GOTO 56000
37088 IF A$="X" THEN GOSUB 38800:GOSUB 49500:GOTO 56000




37980 GOTO 37010


38000 REM


38100 REM

38105 VTAB X2-2:HTAB Y2-3:PRINT" ":B(X2-2,Y2-3)=0
38106 VTAB X2-1:HTAB Y2-3:PRINT" ":B(X2-1,Y2-3)=0
38107 VTAB X2+1:HTAB Y2-3:PRINT" ":B(X2+1,Y2-3)=0
38108 VTAB X2+2:HTAB Y2-3:PRINT" ":B(X2+2,Y2-3)=0


38124 VTAB X2-3:HTAB Y2-2:PRINT" ":B(X2-3,Y2-2)=0
38126 VTAB X2-3:HTAB Y2-1:PRINT" ":B(X2-3,Y2-1)=0
38130 VTAB X2-3:HTAB Y2+1:PRINT" ":B(X2-3,Y2+1)=0
38132 VTAB X2-3:HTAB Y2+2:PRINT" ":B(X2-3,Y2+2)=0


38144 VTAB X2+3:HTAB Y2-2:PRINT" ":B(X2+3,Y2-2)=0
38146 VTAB X2+3:HTAB Y2-1:PRINT" ":B(X2+3,Y2-1)=0
38150 VTAB X2+3:HTAB Y2+1:PRINT" ":B(X2+3,Y2+1)=0
38152 REM VTAB X2+3:HTAB Y2+2:PRINT" ":B(X2+3,Y2+2)=0

38165 VTAB X2-2:HTAB Y2+3:PRINT" ":B(X2-2,Y2+3)=0
38166 VTAB X2-1:HTAB Y2+3:PRINT" ":B(X2-1,Y2+3)=0
38167 VTAB X2+1:HTAB Y2+3:PRINT" ":B(X2+1,Y2+3)=0
38168 REM VTAB X2+2:HTAB Y2+3:PRINT" ":B(X2+2,Y2+3)=0

38175 VTAB X2+2:HTAB Y2-2:PRINT" ":B(X2+2,Y2-2)=0
38176 VTAB X2+1:HTAB Y2-1:PRINT" ":B(X2+1,Y2-1)=0
38177 VTAB X2+1:HTAB Y2:PRINT" ":B(X2+1,Y2)=0
38178 VTAB X2+1:HTAB Y2+1:PRINT" ":B(X2+1,Y2+1)=0
38179 VTAB X2+2:HTAB Y2+2:PRINT" ":B(X2+2,Y2+2)=0
38180 VTAB X2+3:HTAB Y2+3:PRINT" ":B(X2+3,Y2+3)=0


38188 NORMAL:VTAB XS:HTAB YS:PRINT" "

38190 RETURN


38200 VTAB X2-3:HTAB Y2-2:PRINT" ":B(X2-3,Y2-2)=0
38205 VTAB X2-2:HTAB Y2-2:PRINT" ":B(X2-2,Y2-2)=0
38206 VTAB X2-1:HTAB Y2-2:PRINT" ":B(X2-1,Y2-2)=0
38207 VTAB X2+1:HTAB Y2-2:PRINT" ":B(X2+1,Y2-2)=0
38208 VTAB X2+2:HTAB Y2-2:PRINT" ":B(X2+2,Y2-2)=0
38209 VTAB X2+3:HTAB Y2-2:PRINT" ":B(X2+3,Y2-2)=0

38220 VTAB X2-3:HTAB Y2-1:PRINT" ":B(X2-3,Y2-1)=0
38222 VTAB X2-3:HTAB Y2+1:PRINT" ":B(X2-3,Y2+1)=0
38224 VTAB X2-2:HTAB Y2+2:PRINT" ":B(X2-2,Y2+2)=0
38226 VTAB X2-1:HTAB Y2+1:PRINT" ":B(X2-1,Y2+1)=0
38230 VTAB X2:HTAB Y2-1:PRINT" ":B(X2,Y2-1)=0


38240 VTAB X2+1:HTAB Y2+1:PRINT" ":B(X2+1,Y2+1)=0
38242 VTAB X2+2:HTAB Y2+2:PRINT" ":B(X2+2,Y2+2)=0
38244 VTAB X2+3:HTAB Y2+3:PRINT" ":B(X2+3,Y2+3)=0

38288 NORMAL:VTAB XS:HTAB YS:PRINT" "

38290 RETURN


38300 VTAB X2-3:HTAB Y2+2:PRINT" ":B(X2-3,Y2+2)=0
38305 VTAB X2-3:HTAB Y2+1:PRINT" ":B(X2-3,Y2+1)=0
38306 VTAB X2-3:HTAB Y2-1:PRINT" ":B(X2-3,Y2-1)=0
38307 VTAB X2-2:HTAB Y2-2:PRINT" ":B(X2-2,Y2-2)=0
38308 VTAB X2-1:HTAB Y2-1:PRINT" ":B(X2-1,Y2-1)=0
38309 VTAB X2:HTAB Y2:PRINT" ":B(X2,Y2)=0
38310 VTAB X2+1:HTAB Y2+1:PRINT" ":B(X2+1,Y2+1)=0
38316 VTAB X2+2:HTAB Y2+2:PRINT" ":B(X2+2,Y2+2)=0
38317 VTAB X2+3:HTAB Y2+1:PRINT" ":B(X2+3,Y2+1)=0
38318 VTAB X2+3:HTAB Y2-1:PRINT" ":B(X2+3,Y2-1)=0
38320 VTAB X2+3:HTAB Y2-2:PRINT" ":B(X2+3,Y2-2)=0

38388 NORMAL:VTAB XS:HTAB YS:PRINT" "

38390 RETURN


38400 VTAB X2-3:HTAB Y2-3:PRINT" ":B(X2-3,Y2-3)=0
38405 VTAB X2-3:HTAB Y2-2:PRINT" ":B(X2-3,Y2-2)=0
38406 VTAB X2-3:HTAB Y2-1:PRINT" ":B(X2-3,Y2-1)=0
38407 VTAB X2-3:HTAB Y2+1:PRINT" ":B(X2-3,Y2+1)=0
38408 VTAB X2-3:HTAB Y2+2:PRINT" ":B(X2-3,Y2+2)=0
38409 VTAB X2-3:HTAB Y2+3:PRINT" ":B(X2-3,Y2+3)=0

38410 VTAB X2-2:HTAB Y2:PRINT" ":B(X2-2,Y2)=0
38416 VTAB X2-1:HTAB Y2:PRINT" ":B(X2-1,Y2)=0
38417 VTAB X2+1:HTAB Y2:PRINT" ":B(X2+1,Y2)=0
38418 VTAB X2+2:HTAB Y2:PRINT" ":B(X2+2,Y2)=0
38419 VTAB X2+3:HTAB Y2:PRINT" ":B(X2+3,Y2)=0

38488 NORMAL:VTAB XS:HTAB YS:PRINT" "

38490 RETURN

38500 VTAB X2-3:HTAB Y2-3:PRINT" ":B(X2-3,Y2-3)=0
38505 VTAB X2-2:HTAB Y2-3:PRINT" ":B(X2-2,Y2-3)=0
38506 VTAB X2-1:HTAB Y2-3:PRINT" ":B(X2-1,Y2-3)=0
38507 VTAB X2+1:HTAB Y2-3:PRINT" ":B(X2+1,Y2-3)=0
38508 VTAB X2+2:HTAB Y2-3:PRINT" ":B(X2+2,Y2-3)=0

38510 VTAB X2+3:HTAB Y2-2:PRINT" ":B(X2+3,Y2-2)=0
38516 VTAB X2+3:HTAB Y2-1:PRINT" ":B(X2+3,Y2-1)=0
38517 VTAB X2+3:HTAB Y2+1:PRINT" ":B(X2+3,Y2+1)=0
38518 VTAB X2+3:HTAB Y2+2:PRINT" ":B(X2+3,Y2+2)=0

38520 VTAB X2-3:HTAB Y2+3:PRINT" ":B(X2-3,Y2+3)=0
38525 VTAB X2-2:HTAB Y2+3:PRINT" ":B(X2-2,Y2+3)=0
38526 VTAB X2-1:HTAB Y2+3:PRINT" ":B(X2-1,Y2+3)=0
38527 VTAB X2+1:HTAB Y2+3:PRINT" ":B(X2+1,Y2+3)=0
38528 VTAB X2+2:HTAB Y2+3:PRINT" ":B(X2+2,Y2+3)=0


38588 NORMAL:VTAB XS:HTAB YS:PRINT" "

38590 RETURN

38600 VTAB X2-3:HTAB Y2-3:PRINT" ":B(X2-3,Y2-3)=0
38605 VTAB X2-2:HTAB Y2-3:PRINT" ":B(X2-2,Y2-3)=0
38606 VTAB X2-1:HTAB Y2-3:PRINT" ":B(X2-1,Y2-3)=0
38607 VTAB X2+1:HTAB Y2-3:PRINT" ":B(X2+1,Y2-3)=0
38608 VTAB X2+2:HTAB Y2-2:PRINT" ":B(X2+2,Y2-2)=0
38609 VTAB X2+3:HTAB Y2-1:PRINT" ":B(X2+3,Y2-1)=0

38610 VTAB X2+3:HTAB Y2+1:PRINT" ":B(X2+3,Y2+1)=0
38616 VTAB X2+2:HTAB Y2+2:PRINT" ":B(X2+2,Y2+2)=0
38617 VTAB X2+1:HTAB Y2+3:PRINT" ":B(X2+1,Y2+3)=0


38620 VTAB X2-3:HTAB Y2+3:PRINT" ":B(X2-3,Y2+3)=0
38625 VTAB X2-2:HTAB Y2+3:PRINT" ":B(X2-2,Y2+3)=0
38626 VTAB X2-1:HTAB Y2+3:PRINT" ":B(X2-1,Y2+3)=0


38688 NORMAL:VTAB XS:HTAB YS:PRINT" "

38690 RETURN



38700 REM

38705 VTAB X2-3:HTAB Y2-3:PRINT" ":B(X2-3,Y2-3)=0
38706 VTAB X2-2:HTAB Y2-3:PRINT" ":B(X2-2,Y2-3)=0
38707 VTAB X2-1:HTAB Y2-3:PRINT" ":B(X2-1,Y2-3)=0
38708 VTAB X2+1:HTAB Y2-3:PRINT" ":B(X2+1,Y2-3)=0
38709 VTAB X2+2:HTAB Y2-3:PRINT" ":B(X2+2,Y2-3)=0

38718 VTAB X2+3:HTAB Y2-2:PRINT" ":B(X2+3,Y2-2)=0
38719 VTAB X2+2:HTAB Y2-1:PRINT" ":B(X2+2,Y2-1)=0
38724 VTAB X2+1:HTAB Y2:PRINT" ":B(X2+1,Y2)=0
38726 VTAB X2+2:HTAB Y2+1:PRINT" ":B(X2+2,Y2+1)=0
38730 VTAB X2+3:HTAB Y2+2:PRINT" ":B(X2+3,Y2+2)=0
38732 VTAB X2+2:HTAB Y2+3:PRINT" ":B(X2+2,Y2+3)=0


38745 VTAB X2-3:HTAB Y2+3:PRINT" ":B(X2-3,Y2+3)=0
38746 VTAB X2-2:HTAB Y2+3:PRINT" ":B(X2-2,Y2+3)=0
38747 VTAB X2-1:HTAB Y2+3:PRINT" ":B(X2-1,Y2+3)=0
38748 VTAB X2+1:HTAB Y2+3:PRINT" ":B(X2+1,Y2+3)=0


38788 NORMAL:VTAB XS:HTAB YS:PRINT" "

38790 RETURN



38800 REM

38800 VTAB X2-3:HTAB Y2-3:PRINT" ":B(X2-3,Y2-3)=0
38805 VTAB X2-2:HTAB Y2-2:PRINT" ":B(X2-2,Y2-2)=0
38806 VTAB X2-1:HTAB Y2-1:PRINT" ":B(X2-1,Y2-1)=0
38807 VTAB X2+1:HTAB Y2+1:PRINT" ":B(X2+1,Y2+1)=0
38808 VTAB X2+2:HTAB Y2+2:PRINT" ":B(X2+2,Y2+2)=0
38809 VTAB X2+3:HTAB Y2+3:PRINT" ":B(X2+3,Y2+3)=0

38810 VTAB X2-3:HTAB Y2+3:PRINT" ":B(X2-3,Y2+3)=0
38815 VTAB X2-2:HTAB Y2+2:PRINT" ":B(X2-2,Y2+2)=0
38816 VTAB X2-1:HTAB Y2+1:PRINT" ":B(X2-1,Y2+1)=0
38817 VTAB X2+1:HTAB Y2-1:PRINT" ":B(X2+1,Y2-1)=0
38818 VTAB X2+2:HTAB Y2-2:PRINT" ":B(X2+2,Y2-2)=0
38819 VTAB X2+3:HTAB Y2-3:PRINT" ":B(X2+3,Y2-3)=0


38888 NORMAL:VTAB XS:HTAB YS:PRINT" "

38890 RETURN






48000 IF X1=10 AND Y1=40 THEN 48040
48010 IF B(X1,Y1)=1 THEN NORMAL:VTAB X1:HTAB Y1:PRINT"$"
48020 IF B(X1,Y1)=0 THEN NORMAL:VTAB X1:HTAB Y1:PRINT" "
48030 IF X2=10 AND Y2=40 THEN 48050
48040 INVERSE:VTAB X2:HTAB Y2:PRINT"$":NORMAL
 

48050 RETURN





49000 FOR I=1 TO 19
49010 FOR J=1 TO 79
49020 IF B(I,J)=1 THEN VTAB I:HTAB J:PRINT"$":GOTO 49040
49030 VTAB I:HTAB J:PRINT" "
49040 NEXT J
49050 NEXT I
49060 RETURN


49500 BB=0

49502 FOR I=1 TO 19
49510 FOR J=1 TO 79
49520 IF B(I,J)=1 THEN BB=BB+1
49530 NEXT J
49540 NEXT I

49542 GOSUB 1200

49550 RETURN






56000 VTAB 10:HTAB 40:PRINT"M":INVERSE:VTAB X1:HTAB Y1:PRINT"$":NORMAL

56001 INVERSE:VTAB X1:HTAB Y1:PRINT"$":NORMAL


56002 INVERSE:VTAB 23:HTAB 1:PRINT"COMMAND :                                                                     ":VTAB 23:HTAB 50:PRINT"ALPHABET":VTAB 23:HTAB 11:GET A$:VTAB 23:HTAB 11:PRINT A$:NORMAL

56066 IF A$=CHR$(25) THEN X2=X1-1:Y2=Y1:GOSUB 1500:GOSUB 48000:X1=X2:Y1=Y2
56067 IF A$=CHR$(7) THEN X2=X1:Y2=Y1-1:GOSUB 1500:GOSUB 48000:NORMAL:VTAB 10:HTAB 40:PRINT"M":X1=X2:Y1=Y2
56068 IF A$=CHR$(8) THEN X2=X1:Y2=Y1+1:GOSUB 1500:GOSUB 48000:NORMAL:VTAB 10:HTAB 40:PRINT"M":X1=X2:Y1=Y2
56069 IF A$=CHR$(2) THEN X2=X1+1:Y2=Y1:GOSUB 1500:GOSUB 48000:NORMAL:VTAB 10:HTAB 40:PRINT"M":X1=X2:Y1=Y2

56070 IF A$=CHR$(43) THEN INVERSE:VTAB X1:HTAB Y1:PRINT"$":NORMAL:VTAB 10:HTAB 40:PRINT"M":INVERSE:VTAB 23:HTAB 12:PRINT"                                                                    ":NORMAL:GOTO 30000

56080 IF A$="B" THEN 57000
56082 IF A$="C" THEN 37000

56090 GOTO 56000


57000 INVERSE:VTAB X1:HTAB Y1:PRINT"B":B=1:XS=X1:YS=Y1:X2=X1:Y2=Y1:NORMAL

57010 INVERSE:VTAB 23:HTAB 11:GET A$:VTAB 23:HTAB 11:PRINT A$:NORMAL

57070 IF A$=CHR$(43) THEN GOSUB 49000:INVERSE:VTAB X1:HTAB Y1:PRINT"$":NORMAL:VTAB 10:HTAB 40:PRINT"M":GOTO 56000

57080 IF A$="Q" THEN GOSUB 58100:GOSUB 49500:GOTO 56000
57081 IF A$="R" THEN GOSUB 58200:GOSUB 49500:GOTO 56000
57082 IF A$="S" THEN GOSUB 58300:GOSUB 49500:GOTO 56000
57083 IF A$="T" THEN GOSUB 58400:GOSUB 49500:GOTO 56000
57085 IF A$="U" THEN GOSUB 58500:GOSUB 49500:GOTO 56000
57086 IF A$="V" THEN GOSUB 58600:GOSUB 49500:GOTO 56000
57087 IF A$="W" THEN GOSUB 58700:GOSUB 49500:GOTO 56000
57088 IF A$="X" THEN GOSUB 58800:GOSUB 49500:GOTO 56000









57980 GOTO 57010


58000 REM


58100 REM

58105 VTAB X2-2:HTAB Y2-3:PRINT"$":B(X2-2,Y2-3)=1
58106 VTAB X2-1:HTAB Y2-3:PRINT"$":B(X2-1,Y2-3)=1
58107 VTAB X2+1:HTAB Y2-3:PRINT"$":B(X2+1,Y2-3)=1
58108 VTAB X2+2:HTAB Y2-3:PRINT"$":B(X2+2,Y2-3)=1


58124 VTAB X2-3:HTAB Y2-2:PRINT"$":B(X2-3,Y2-2)=1
58126 VTAB X2-3:HTAB Y2-1:PRINT"$":B(X2-3,Y2-1)=1
58130 VTAB X2-3:HTAB Y2+1:PRINT"$":B(X2-3,Y2+1)=1
58132 VTAB X2-3:HTAB Y2+2:PRINT"$":B(X2-3,Y2+2)=1


58144 VTAB X2+3:HTAB Y2-2:PRINT"$":B(X2+3,Y2-2)=1
58146 VTAB X2+3:HTAB Y2-1:PRINT"$":B(X2+3,Y2-1)=1
58150 VTAB X2+3:HTAB Y2+1:PRINT"$":B(X2+3,Y2+1)=1
58152 REM VTAB X2+3:HTAB Y2+2:PRINT"$":B(X2+3,Y2+2)=1

58165 VTAB X2-2:HTAB Y2+3:PRINT"$":B(X2-2,Y2+3)=1
58166 VTAB X2-1:HTAB Y2+3:PRINT"$":B(X2-1,Y2+3)=1
58167 VTAB X2+1:HTAB Y2+3:PRINT"$":B(X2+1,Y2+3)=1
58168 REM VTAB X2+2:HTAB Y2+3:PRINT"$":B(X2+2,Y2+3)=1

58175 VTAB X2+2:HTAB Y2-2:PRINT"$":B(X2+2,Y2-2)=1
58176 VTAB X2+1:HTAB Y2-1:PRINT"$":B(X2+1,Y2-1)=1
58177 VTAB X2+1:HTAB Y2:PRINT"$":B(X2+1,Y2)=1
58178 VTAB X2+1:HTAB Y2+1:PRINT"$":B(X2+1,Y2+1)=1
58179 VTAB X2+2:HTAB Y2+2:PRINT"$":B(X2+2,Y2+2)=1
58180 VTAB X2+3:HTAB Y2+3:PRINT"$":B(X2+3,Y2+3)=1


58188 NORMAL:VTAB XS:HTAB YS:PRINT" "

58190 RETURN




58200 VTAB X2-3:HTAB Y2-2:PRINT"$":B(X2-3,Y2-2)=1
58205 VTAB X2-2:HTAB Y2-2:PRINT"$":B(X2-2,Y2-2)=1
58206 VTAB X2-1:HTAB Y2-2:PRINT"$":B(X2-1,Y2-2)=1
58207 VTAB X2+1:HTAB Y2-2:PRINT"$":B(X2+1,Y2-2)=1
58208 VTAB X2+2:HTAB Y2-2:PRINT"$":B(X2+2,Y2-2)=1
58209 VTAB X2+3:HTAB Y2-2:PRINT"$":B(X2+3,Y2-2)=1

58220 VTAB X2-3:HTAB Y2-1:PRINT"$":B(X2-3,Y2-1)=1
58222 VTAB X2-3:HTAB Y2+1:PRINT"$":B(X2-3,Y2+1)=1
58224 VTAB X2-2:HTAB Y2+2:PRINT"$":B(X2-2,Y2+2)=1
58226 VTAB X2-1:HTAB Y2+1:PRINT"$":B(X2-1,Y2+1)=1
58230 VTAB X2:HTAB Y2-1:PRINT"$":B(X2,Y2-1)=1


58240 VTAB X2+1:HTAB Y2+1:PRINT"$":B(X2+1,Y2+1)=1
58242 VTAB X2+2:HTAB Y2+2:PRINT"$":B(X2+2,Y2+2)=1
58244 VTAB X2+3:HTAB Y2+3:PRINT"$":B(X2+3,Y2+3)=1

58288 NORMAL:VTAB XS:HTAB YS:PRINT" "

58290 RETURN





58300 VTAB X2-3:HTAB Y2+2:PRINT"$":B(X2-3,Y2+2)=1
58305 VTAB X2-3:HTAB Y2+1:PRINT"$":B(X2-3,Y2+1)=1
58306 VTAB X2-3:HTAB Y2-1:PRINT"$":B(X2-3,Y2-1)=1
58307 VTAB X2-2:HTAB Y2-2:PRINT"$":B(X2-2,Y2-2)=1
58308 VTAB X2-1:HTAB Y2-1:PRINT"$":B(X2-1,Y2-1)=1
58309 VTAB X2:HTAB Y2:PRINT"$":B(X2,Y2)=1
58310 VTAB X2+1:HTAB Y2+1:PRINT"$":B(X2+1,Y2+1)=1
58316 VTAB X2+2:HTAB Y2+2:PRINT"$":B(X2+2,Y2+2)=1
58317 VTAB X2+3:HTAB Y2+1:PRINT"$":B(X2+3,Y2+1)=1
58318 VTAB X2+3:HTAB Y2-1:PRINT"$":B(X2+3,Y2-1)=1
58320 VTAB X2+3:HTAB Y2-2:PRINT"$":B(X2+3,Y2-2)=1

58388 NORMAL:VTAB XS:HTAB YS:PRINT" "

58390 RETURN


58400 VTAB X2-3:HTAB Y2-3:PRINT"$":B(X2-3,Y2-3)=1
58405 VTAB X2-3:HTAB Y2-2:PRINT"$":B(X2-3,Y2-2)=1
58406 VTAB X2-3:HTAB Y2-1:PRINT"$":B(X2-3,Y2-1)=1
58407 VTAB X2-3:HTAB Y2+1:PRINT"$":B(X2-3,Y2+1)=1
58408 VTAB X2-3:HTAB Y2+2:PRINT"$":B(X2-3,Y2+2)=1
58409 VTAB X2-3:HTAB Y2+3:PRINT"$":B(X2-3,Y2+3)=1

58410 VTAB X2-2:HTAB Y2:PRINT"$":B(X2-2,Y2)=1
58416 VTAB X2-1:HTAB Y2:PRINT"$":B(X2-1,Y2)=1
58417 VTAB X2+1:HTAB Y2:PRINT"$":B(X2+1,Y2)=1
58418 VTAB X2+2:HTAB Y2:PRINT"$":B(X2+2,Y2)=1
58419 VTAB X2+3:HTAB Y2:PRINT"$":B(X2+3,Y2)=1

58488 NORMAL:VTAB XS:HTAB YS:PRINT" "

58490 RETURN

58500 VTAB X2-3:HTAB Y2-3:PRINT"$":B(X2-3,Y2-3)=1
58505 VTAB X2-2:HTAB Y2-3:PRINT"$":B(X2-2,Y2-3)=1
58506 VTAB X2-1:HTAB Y2-3:PRINT"$":B(X2-1,Y2-3)=1
58507 VTAB X2+1:HTAB Y2-3:PRINT"$":B(X2+1,Y2-3)=1
58508 VTAB X2+2:HTAB Y2-3:PRINT"$":B(X2+2,Y2-3)=1

58510 VTAB X2+3:HTAB Y2-2:PRINT"$":B(X2+3,Y2-2)=1
58516 VTAB X2+3:HTAB Y2-1:PRINT"$":B(X2+3,Y2-1)=1
58517 VTAB X2+3:HTAB Y2+1:PRINT"$":B(X2+3,Y2+1)=1
58518 VTAB X2+3:HTAB Y2+2:PRINT"$":B(X2+3,Y2+2)=1

58520 VTAB X2-3:HTAB Y2+3:PRINT"$":B(X2-3,Y2+3)=1
58525 VTAB X2-2:HTAB Y2+3:PRINT"$":B(X2-2,Y2+3)=1
58526 VTAB X2-1:HTAB Y2+3:PRINT"$":B(X2-1,Y2+3)=1
58527 VTAB X2+1:HTAB Y2+3:PRINT"$":B(X2+1,Y2+3)=1
58528 VTAB X2+2:HTAB Y2+3:PRINT"$":B(X2+2,Y2+3)=1


58588 NORMAL:VTAB XS:HTAB YS:PRINT" "

58590 RETURN

58600 VTAB X2-3:HTAB Y2-3:PRINT"$":B(X2-3,Y2-3)=1
58605 VTAB X2-2:HTAB Y2-3:PRINT"$":B(X2-2,Y2-3)=1
58606 VTAB X2-1:HTAB Y2-3:PRINT"$":B(X2-1,Y2-3)=1
58607 VTAB X2+1:HTAB Y2-3:PRINT"$":B(X2+1,Y2-3)=1
58608 VTAB X2+2:HTAB Y2-2:PRINT"$":B(X2+2,Y2-2)=1
58609 VTAB X2+3:HTAB Y2-1:PRINT"$":B(X2+3,Y2-1)=1

58610 VTAB X2+3:HTAB Y2+1:PRINT"$":B(X2+3,Y2+1)=1
58616 VTAB X2+2:HTAB Y2+2:PRINT"$":B(X2+2,Y2+2)=1
58617 VTAB X2+1:HTAB Y2+3:PRINT"$":B(X2+1,Y2+3)=1


58620 VTAB X2-3:HTAB Y2+3:PRINT"$":B(X2-3,Y2+3)=1
58625 VTAB X2-2:HTAB Y2+3:PRINT"$":B(X2-2,Y2+3)=1
58626 VTAB X2-1:HTAB Y2+3:PRINT"$":B(X2-1,Y2+3)=1


58688 NORMAL:VTAB XS:HTAB YS:PRINT" "

58690 RETURN


58700 REM

58705 VTAB X2-3:HTAB Y2-3:PRINT"$":B(X2-3,Y2-3)=1
58706 VTAB X2-2:HTAB Y2-3:PRINT"$":B(X2-2,Y2-3)=1
58707 VTAB X2-1:HTAB Y2-3:PRINT"$":B(X2-1,Y2-3)=1
58708 VTAB X2+1:HTAB Y2-3:PRINT"$":B(X2+1,Y2-3)=1
58709 VTAB X2+2:HTAB Y2-3:PRINT"$":B(X2+2,Y2-3)=1

58718 VTAB X2+3:HTAB Y2-2:PRINT"$":B(X2+3,Y2-2)=1
58719 VTAB X2+2:HTAB Y2-1:PRINT"$":B(X2+2,Y2-1)=1
58724 VTAB X2+1:HTAB Y2:PRINT"$":B(X2+1,Y2)=1
58726 VTAB X2+2:HTAB Y2+1:PRINT"$":B(X2+2,Y2+1)=1
58730 VTAB X2+3:HTAB Y2+2:PRINT"$":B(X2+3,Y2+2)=1
58732 VTAB X2+2:HTAB Y2+3:PRINT"$":B(X2+2,Y2+3)=1


58745 VTAB X2-3:HTAB Y2+3:PRINT"$":B(X2-3,Y2+3)=1
58746 VTAB X2-2:HTAB Y2+3:PRINT"$":B(X2-2,Y2+3)=1
58747 VTAB X2-1:HTAB Y2+3:PRINT"$":B(X2-1,Y2+3)=1
58748 VTAB X2+1:HTAB Y2+3:PRINT"$":B(X2+1,Y2+3)=1


58788 NORMAL:VTAB XS:HTAB YS:PRINT" "

58790 RETURN





58800 REM

58800 VTAB X2-3:HTAB Y2-3:PRINT"$":B(X2-3,Y2-3)=1
58805 VTAB X2-2:HTAB Y2-2:PRINT"$":B(X2-2,Y2-2)=1
58806 VTAB X2-1:HTAB Y2-1:PRINT"$":B(X2-1,Y2-1)=1
58807 VTAB X2+1:HTAB Y2+1:PRINT"$":B(X2+1,Y2+1)=1
58808 VTAB X2+2:HTAB Y2+2:PRINT"$":B(X2+2,Y2+2)=1
58809 VTAB X2+3:HTAB Y2+3:PRINT"$":B(X2+3,Y2+3)=1

58810 VTAB X2-3:HTAB Y2+3:PRINT"$":B(X2-3,Y2+3)=1
58815 VTAB X2-2:HTAB Y2+2:PRINT"$":B(X2-2,Y2+2)=1
58816 VTAB X2-1:HTAB Y2+1:PRINT"$":B(X2-1,Y2+1)=1
58817 VTAB X2+1:HTAB Y2-1:PRINT"$":B(X2+1,Y2-1)=1
58818 VTAB X2+2:HTAB Y2-2:PRINT"$":B(X2+2,Y2-2)=1
58819 VTAB X2+3:HTAB Y2-3:PRINT"$":B(X2+3,Y2-3)=1


58888 NORMAL:VTAB XS:HTAB YS:PRINT" "

58890 RETURN




 